Apple Reference & Presen…tion Library 2 (Reseller)/Apple R&P Lib Reseller v2.0.iso/1-Reference/Apple Literature Guide/TIFFS/MacScan™1.49/†MacScan™1.49.rsrc/STRw_66

Text File | 1989-04-27 | 405b | 1 lines

ìpop pop /da [ [ 17 33 21 45 19 35 23 47 ] [ 57 01 61 13 59 03 63 15 ] [ 25 41 29 37 27 43 31 39 ] [ 49 09 53 05 51 11 55 07 ] [ 20 36 24 48 18 34 22 46 ] [ 60 04 64 16 58 02 62 14 ] [ 28 44 32 40 26 42 30 38 ] [ 52 12 56 08 50 10 54 06 ] ] def /ds da length def 37.5 0 {1 add 2 div ds mul cvi dup ds eq {1 sub} if exch 1 add 2 div ds mul cvi dup ds eq {1 sub} if da exch get exch get 100 div} setscreen